home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 3 / Digital_Talk_03_1993-10-18_Digital_Talk_de_Side_B.d64 / basic corner.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  73 lines
  1. 1 goto 100
  2. 2 rem * * *                                            basic - corner:
  3. 3 rem        bildschirmspeicher
  4. 4 rem            verschieben                                              * * *
  5. 5 poke53280,0:  rem rahmenfarbe schwarz
  6. 6 poke53281,0:  rem rahmenfarbe schwarz
  7. 7 poke53272,21: rem gross/grafik-font                       einschalten
  8. 8 poke648,1024/256: rem screen 1 ein
  9. 9 poke53272,(peek(53272)and15)or          (1024/1024)*16:rem screen 1 anzeigen
  10. 10 print"[147]du siehst nun den ersten"
  11. 11 print"[176][192][192][201]  [201]     [213]         [174]
  12. 12 [153]"(NULL)  (NULL)  (NULL)     (NULL)         (NULL)
  13. 13 print"[221]  [221]  [221]     [221]         [221]
  14. 14 [153]"-tantan  (NULL)(NULL)  (NULL)tantan< (NULL)tantan ortantan -tantan^ (NULL) ^or ortan=tan^
  15. 15 print"[221]  [221] [221][221]  [221]  [221] [221]   [221]   [221]  [221] [221] [171][189] [221] [221] [221]
  16. 16 [153]"(NULL)  (NULL) (NULL)(NULL)  (NULL)  (NULL) mid$tantanright$(NULL)   (NULL)  (NULL) (NULL) (NULL)  (NULL) (NULL) (NULL)
  17. 17 print"[173][192][192][203][192][189][202][192] [173][192][192][189] [213][192][192][203][202][192][192] [189]  [173] [189] [189]  [189] [177] [173]
  18. 18 [153]"waehrend der 2. aufgebaut wird."
  19. 19 [153]"1"
  20. 30 [151]648,15360[173]256: [143] screen 2 ein
  21. 40 [153]"load":[129]i[178]1[164]33:[153]"digital talk ";:[130]:[153]"little john ";
  22. 41 [129]i[178]1[164]33:[153]"digital talk ";:[130]
  23. 51 [153]"2"
  24. 55 [153]" taste druecken ! "
  25. 56 [153]"                  "
  26. 57 [153]"                  "
  27. 58 [129]i[178]55296[164]55295[170]999:[151]i,[181](15[172][187](0))[170]1:[130]
  28. 59 [143]  * * 2. screen fertig erstellt,          nun 2. screen anzeigen... * *
  29. 60 [151]53272,([194](53272)[175]15)[176](15360[173]1024)[172]16
  30. 61 [129]k[178]1[164]10:[151]198,0:[146]198,1
  31. 62 [151]53272,([194](53272)[175]15)[176](1024[173]1024)[172]16
  32. 63 [151]198,0:[146]198,1
  33. 64 [151]53272,([194](53272)[175]15)[176](15360[173]1024)[172]16
  34. 65 [130]
  35. 68 [151]53272,([194](53272)[175]15)[176](1024[173]1024)[172]16
  36. 69 [151]648,1024[173]256:[137]100
  37. 70 [151]53280,5:[151]53281,13
  38. 71 [153]"loadstopweniger variablen -> mehr speicher":[129]i[178]1[164]300:[130]
  39. 72 [151]53280,13:[151]53281,3:[129]i[178]1[164]300:[130]
  40. 73 [151]53280,3:[151]53281,7:[129]i[178]1[164]300:[130]
  41. 74 [151]53280,7:[151]53281,8:[129]i[178]1[164]300:[130]
  42. 75 [153]"weniger  -> mehr ":[129]i[178]1[164]300:[130]
  43. 76 [153]""[184](0)[170]2[174]16"bytes free (derzeit!)":[151]198,0:[146]198,1
  44. 77 a[178]1:b[178]2:c[178]3:d[178]4:e[178]5:[153]"a="a"b="b"c="c"d="d"e="e:[151]198,0:[146]198,1
  45. 78 [153]""[184](0)[170]2[174]16"bytes free (derzeit!)":[151]198,0:[146]198,1
  46. 79 [129]i[178]49152[164]49160:[151]i,[181](255[172][187](0))[170]1:[153]i,[194](i):[153]"";:[130]
  47. 80 [153]""[184](0)[170]2[174]16"bytes free (derzeit!)":[151]198,0:[146]198,1
  48. 88 [151]198,0:[146]198,1
  49. 89 [137]100
  50. 100 [151]53280,11:[151]53281,12:[153]"loadstop":x[178]0:[151]648,4
  51. 101 [153]"load":[153][163]13[171]x)"                    wait "
  52. 102 [153][163]13[171]x)"         wait "
  53. 103 [153][163]13[171]x)"             wait "
  54. 104 [153][163]13[171]x)"          wait "
  55. 105 [153][163]13[171]x)"             wait "
  56. 106 [153][163]13[171]x)"        wait "
  57. 107 [153][163]13[171]x)"                    wait "
  58. 110 x[178]x[170]1:[129]j[178]1[164]100:[130]:[139]x[179]13[167]101
  59. 111 [153][163]22)"onononononcorner demo"
  60. 112 [153][163]22)"by little john"
  61. 115 [153]"1waitoncmdtobildschirmspeicher verschieben"
  62. 116 [153]"2waitoncmdtoweniger variablen"
  63. 117 [153]"3waitoncmdtoende"
  64. 120 [151]198,0:[146]198,1
  65. 121 [161]z$
  66. 122 [139]z$[178]"1"[167]130
  67. 123 [139]z$[178]"2"[167]131
  68. 124 [139]z$[178]"3"[167][128]
  69. 125 [137]120
  70. 130 [153]"*newrndcmdcmdcmdgetwaitgetcmdcmdcmdlognewwaitcos":[129]i[178]1[164]500:[130]:[137]5
  71. 131 [153]"*newrndcmdcmdcmdgetwaitgetcmdcmdcmdlognewwaitcos":[129]i[178]1[164]500:[130]:[137]70
  72. 132 [153]"*newrndcmdcmdcmdgetwaitgetcmdcmdcmdlognewwaitcos":[129]i[178]1[164]500:[130]:[137]70
  73.